home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ WinVer on Desktop.xpl < prev    next >
Text File  |  1999-07-08  |  2KB  |  52 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Desktop\Other"
  5. "NAME"="Version Display"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Enable Showing Windows Build/Version on Desktop"
  8. "DESCRIPTION 1"="This plug-in allows you to display the build of Windows that you are using in the lower right-hand corner of your desktop screen above the taskbar tray area."
  9. "DESCRIPTION 2"="This works on Windows 98 and Windows 95.  Has not been tested with Windows NT 4.0 nor Windows 2000.  If you have successfully used it on them, please send details to CptSiskoX@flashmail.com about it.  Thank you."
  10. "DESCRIPTION 3"="To enable this plug-in, check the box above.  To disable it, uncheck the box."
  11. "AUTHOR"="CptSiskoX"
  12. "COPYRIGHT"="Copyright ⌐ CptSiskoX of Xteq Systems - All rights reserved."
  13. "COMMENT 1"="For questions, comments, or suggestions contact info@xteq.com or visit http://www.xteq.com/"
  14. "COMMENT 2"="Version 1.0"
  15. "COMMENT 3"="Thanks to Maxwell <maxwello@hotpop.com> for this setting."
  16.  
  17.  
  18. 'Declaration of some constants
  19. sP="HKEY_CURRENT_USER\Control Panel\Desktop\"
  20. sV1="PaintDesktopVersion"
  21.  
  22. 'Called when the Plugin is started
  23. SUB Plugin_Initialize
  24.  If GetWinVer=3 then 
  25.     i=RegReadValue(sp & sv1)
  26.     if i=1 then SetUIElement 1,true
  27.  else
  28.     Disable
  29.  end if
  30. END SUB
  31.  
  32. 'Called when the Plugin should validate the Data the user has entered
  33. SUB Plugin_CheckData(ElementIndex)
  34. END SUB
  35.  
  36. 'Called when the Plugin should apply the changes
  37. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  b=GetUIElement(1)
  39.  
  40.  if b=true then
  41.     Call RegWriteValue(sp & sv1,"1",1)
  42.  else
  43.     Call RegWriteValue(sp & sv1,"0",1)
  44.  end if
  45.  
  46.  Restart
  47. END SUB
  48.  
  49. 'Called when the Plugin is about to be removed from memory
  50. SUB Plugin_Terminate
  51. END SUB
  52.